home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Mapping / m-to-tonality < prev    next >
Text File  |  1998-08-11  |  1KB  |  32 lines
  1. m-to-tonality range symbol-list tonality-list
  2.  
  3. (m-to-tonality 'violin 
  4.                '(-g a b c d e f g h i j k l m = n o p q r s t u v)
  5.                (activate-tonality (major c 4)))
  6. => (c a c e f h j l m o q r t v = x y [ ] ^ \` \b \d \e)
  7.  
  8. (m-to-tonality 'violin 
  9.                '(-g a b c ad e f g fh i j kg l m = n o p q r s t u v)
  10.                (activate-tonality (messiaen1 c 4) (messiaen4 c 4)))
  11. => ((a a c e ag i k m ko q s um w y = [ ] _ \a \c \e \g \i \k)
  12.     (c a b c af g h i hl m n oi r s = t u x y z [ ^ _ \`))
  13.  
  14. (m-to-tonality -5 11 
  15.                '((-g a b c d e f g h i j k) (l m = n o p q r s t u v))
  16.                (activate-tonality (major c 4) (harmonic-minor g 3)))
  17. => ((c a c e f h j l a c e f) (c d = g h j k a c d g h))
  18.  
  19. (m-to-tonality -5 11 
  20.                '((-g a b c d e f g h i j k) (l m = n o p q r s t u v))
  21.                (activate-tonality (major c 4) (harmonic-minor g 3)
  22.                                      (messiaen1 c 4) (messiaen4 c 4)))
  23. => ((c a c e f h j l a c e f) (c d = g h j k a c d g h)
  24.     (a a c e g i k a c e g i) (f g = h i l a b c f g h))
  25.  
  26. (m-to-tonality 'piano 
  27.                '(-g a b c d e f g h i j k)
  28.                (activate-tonality (major c 4) (harmonic-minor g 3)
  29.                                      (messiaen1 c 4) (messiaen4 c 4)))
  30. => ((-k a c e f h j l m o q r) (-p -f -d -c a c d g h j k m)
  31.     (-m a c e g i k m o q s u) (-k a b c f g h i l m n o))
  32.